home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / UNIVERSE / SHARED.DIR / 01046_Script_temp script < prev    next >
Text File  |  1995-11-21  |  725b  |  35 lines
  1. on setTextCastScripts2
  2.   
  3.   set j = 0
  4.   
  5.   set fir = the number of cast "Start Text"
  6.   set las = the number of cast "End Text"
  7.   
  8.   if fir = 0 or las = 0 or las < fir then asdf
  9.   
  10.   repeat with i = fir to las
  11.     if the castType of cast i = #Text then
  12.       set the scriptText of cast i = "on mouseDown" & return & "  doTextClick(" & i & ")" & return & "end"
  13.       
  14.     end if
  15.     
  16.     put the freeBytes
  17.     
  18.     if the freeBytes < 1500000 then
  19.       saveMovie
  20.       unloadCast 1,1000
  21.       if the machineType <> 256 then maxmem() 
  22.     end if
  23.     
  24.     set j = j + 1
  25.     if j = 100 then
  26.       beep
  27.       set j = 0
  28.     end if
  29.     
  30.     
  31.   end repeat
  32.   
  33.   put "Done."
  34.   
  35. end setTextCastScripts2